Wraps a 1d sequence of panels into 2d and then convert them with ggplotly.
p <- ggplot(mpg, aes(displ, hwy)) + geom_point()
p <- p + facet_wrap(vars(class))
plotly::ggplotly(p)
p <- ggplot(mpg, aes(displ, hwy)) + geom_point()
p <- p + facet_wrap(vars(class), nrow = 4)
plotly::ggplotly(p)
p <-
ggplot(mpg, aes(displ, hwy)) +
geom_point() +
facet_wrap(vars(cyl, drv))
plotly::ggplotly(p)
p <-
ggplot(mpg, aes(displ, hwy)) +
geom_point() +
facet_wrap(vars(cyl, drv), labeller = "label_both")
plotly::ggplotly(p)
mpg$class2 <- reorder(mpg$class, mpg$displ)
p <- ggplot(mpg, aes(displ, hwy)) +
p <- geom_point() +
p <- facet_wrap(vars(class2))
plotly::ggplotly(p)
p <-
ggplot(mpg, aes(displ, hwy)) +
geom_point() +
facet_wrap(vars(class), scales = "free")
plotly::ggplotly(p)
p <-
ggplot(mpg, aes(displ, hwy)) +
geom_point(data = transform(mpg, class = NULL), colour = "grey85") +
geom_point() +
facet_wrap(vars(class))
plotly::ggplotly(p)
p <-
ggplot(economics_long, aes(date, value)) +
geom_line() +
facet_wrap(vars(variable), scales = "free_y", nrow = 2, strip.position = "top") +
theme(strip.background = element_blank(), strip.placement = "outside")
plotly::ggplotly(p)